﻿Type=Activity
Version=3.15
@EndOfDesignText@
#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

	Dim FTZList As List
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Dim lsvTZ As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("FormXTTZInfo")
	Activity.Title = "通知列表"

End Sub

Sub Activity_Resume
	RefreshData
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub RefreshData
	SetTZData
	
	StopService(TZService)
End Sub

Sub SetTZData
	Dim sTZData As String
	Dim sLine1,sLine2 As String
	Dim mapResult As Map
	
	sTZData = PublicVar.GV_DesTool.Base64decrypt(TZService.TZData)
	PublicVar.GV_JSonTool.Initialize(sTZData)
	FTZList = PublicVar.GV_JSonTool.NextArray
	
	For i = 0 To FTZList.Size - 1 
		mapResult = FTZList.Get(i)
		
		sLine1 = mapResult.Get("TZBT") 
		sLine2 = mapResult.Get("TZRQ") & " " & mapResult.Get("FBRY")
		
		lsvTZ.AddTwoLines2(sLine1,sLine2,mapResult)
		
	Next	

End Sub 




